---
title: "means_SDs_all_videos"
output: html_document
editor_options: 
  chunk_output_type: console
---

```{r}
rm(list = ls())
library(data.table); library(tidyverse); library(psych); library(fixest); library(marginaleffects);
```

```{r}
d0 <- fread("../data/clean/data-long.csv")
d1 <- fread("../data/clean/data-cov.csv")

d2 <- left_join(d0, select(d1, c('responseid','condition'))) |> data.table()
d3 <- d2[, .(mean=mean(videorating, na.rm = T), sd=sd(videorating, na.rm = T)), by=c("videotype","topic","condition")]
d3

fwrite(d3, "../data/clean/mean-sd.csv")
```

```{r}

```

